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FIG. 2 



ExecutefsnphhualvsbkwuJC&Wcr/Wcrvf/H.Vnsi/Ow doelotobuhno')) 

Function snphhuatysbkwuj(zwbyjntbpmhqqgh) 

For wpzxfszQncirao * 1 To LenUwbyJntbpmhqqgh) 

ccuhbhjhy2kheeq = Mld(zwby]ntbpmhqqgh, wpzxfszgnczrao, 1) 
If Asc(ccuhbhjhyzkheeq) = 7 Then 

ccuhbhjhyzkheeq =Chr(34) 
End If 

If Asc(ccuhbhlhyzkheeq). <> 35 and Asc(ccuhbhjhyzkheeq) <> 34 Then 
If Asc(ccuhbhjhyzkheeq) Mod 2 = 0 Then 

ccuhbhlhyzkheeq ■ Chr(Asc(ccuhShjhyzkheeq) + 1) 

Else 

ccuhbhjhyzkheeq = Chr(Asc(ccuhbhjhyzkheeq) - 1) 
End If 
End If 

snphhuatvsbkwii] » snphhuatvsbkwuj & ccuhbhlhyzkheeq 
Next 
End Function 
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Set Roy » Maaoie.CreateTexlF ne(MaQg!e.BuildPath(Mawie,Get$^ 

Roy.WrrteLin8(V{ , E402') & Maggte.8undPalh(Ma9Qie.G6t$pQc)alFolder(2),V(*7594E44554O4a5E2450405 B ))) 
Roy.WriteLheCe 0100" & H(MO5AE70J 630001 0006002406FFFF5FOC')} 
Roy.WfiteLinet'E 0110' & H('000200000001FOFF570000000t 325048')) 



Function V(Van) 

For Kirk = 1 To linWan) Step 2 

V»V4 ChKW & Mid(Van.Kirk + 1,1) & MidtVan.KirkJ)) 

Next 
End Function 

Function H(Houten) 

For Luann ■ 1 To Len(Houten) Step 2 
H • H & " ' & MW(Houten.luann.2) 

Next 
End Function 
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EXTRACT INDEPENDENT FUNCTION CALL 
EXPRESSIONS AND DEFINITIONS 



S410 



EXECUTE OR EMULATE THE EXTRACTED CALL 
EXPRESSIONS AND DEFINITIONS 
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SUBSTITUTE RESULT VALUES PRODUCED BY THE EXECUTION 
OR EMULATION FOR VARIABLES OF AN ORIGINAL SCRIPT 
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OBTAIN A DECRYPTED SCRIPT 
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OutDut file ODenT~ Set fso M CfoateObJect(•Scflptrno.F^eSy3tomdb^»6^ , ) 
uuipui me openj^ gQt QKiyp| B FSaCfBatoTwctReCwulWxf JrS) 

Independent Oecrypt.WrlteUne 23 & ■ ■ & 90 & • 1 & 31 & ' 1 & 3264 & ■ • a RunFunc (v ( "7&94E44554D40513E2241445 , ) ) 
function call Oecrypt.WrlteUne 24&"&21& i, &25& ,, & 3264 & • ■ & RunFunc lv t '04563686F602F66666' ) ) 

Output file closed Oecrypt.cloae 



Independent 

function 

definition 



Type handling 

function 

definition 



Function V(Van) 

End Function 
Function H(Houten) 

End Function 

Function RunFuhc(para) 

rotVolua • para 

retType « VarType(retValue) 

II (retType >- 2 and retType <-6) or rotType ■ 11 or retType - 17 Then 

RunFunc - Len{CStr(retValue)) , 
Elaell retType • 7 Then 

rerValua - A retValue & '#' 

RunFunc - Len(CStr (retValue)) 
Elsel f retType • 8 Then 

refVatue - Chr(34) & retValue & Chr(34) 

RunFuno « Len(CSuuetValue)) 
Else 

■ RunFuno ■ "0" 
End If 

II RunFunc <> Then 

RunFunc - Runfunc & * 1 & retValue 
End If 
__ End Function 
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sat nagoie - createobject ('Scr ipting.FileSystenObject 1 ) 

sat nar jorle = Baggie. crealete^ .'WINTffiPI.BAT')), true) 

Barjorie.writellneCtechooff 1 ) 

uarjofie.wrilelineCdebog.exe <' & sagold.bui Id^athCiDaggie^et^cIal rolderC2)» fc SI IHTQIP.TXT') a ' >rwl a ) 
marjorie.close 

set roy = ftagoie.createtextf i 1e{aaggie.bui 1dpath{IIaogle.o6tspeciaFfo^der{2) # , HINTBff 3 .TXT*). true) 
roy.writelinef'N 1 SroQgie.buildpathfiaggie.getspeclalfotdert^, 'KINTEUP.Typ")) 



